home *** CD-ROM | disk | FTP | other *** search
/ Apple WWDC 1996 / WWDC96_1996 (CD).toast / Technology Materials / MacOS 8 Resources / Developer Tools / Mac OS 8 Interfaces & Libraries / Interfaces / PInterfaces / Math64.p < prev    next >
Encoding:
Text File  |  1996-05-01  |  7.6 KB  |  211 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        Math64.p
  3.  
  4.      Contains:    64-bit integer math Interfaces.
  5.  
  6.      Version:    Technology:    System 8
  7.                  Release:    Universal Interfaces 3.0d3 on Copland DR1
  8.  
  9.      Copyright:    © 1984-1996 by Apple Computer, Inc.  All rights reserved.
  10.  
  11.      Bugs?:        If you find a problem with this file, send the file and version
  12.                  information (from above) and the problem description to:
  13.  
  14.                      Internet:    apple.bugs@applelink.apple.com
  15.                      AppleLink:    APPLE.BUGS
  16.  
  17. }
  18. {$IFC UNDEFINED UsingIncludes}
  19. {$SETC UsingIncludes := 0}
  20. {$ENDC}
  21.  
  22. {$IFC NOT UsingIncludes}
  23.  UNIT Math64;
  24.  INTERFACE
  25. {$ENDC}
  26.  
  27. {$IFC UNDEFINED __MATH64__}
  28. {$SETC __MATH64__ := 1}
  29.  
  30. {$I+}
  31. {$SETC Math64Includes := UsingIncludes}
  32. {$SETC UsingIncludes := 1}
  33.  
  34. {$IFC UNDEFINED __TYPES__}
  35. {$I Types.p}
  36. {$ENDC}
  37.  
  38. {$PUSH}
  39. {$ALIGN MAC68K}
  40. {$LibExport+}
  41.  
  42. {
  43. --------------------------------------------------------------------------------
  44.                 These routines are intended to provide C software support for
  45.                 64 bit integer types.  Their behavior should mimic anticipated
  46.                 64 bit hardware. This implementation should replace use of the
  47.                 "wide" type found in PowerPC.
  48.  
  49.     The following routines are available for performing math on 64-bit integers:
  50.     
  51.     S64Max
  52.                 Returns the largest representable SInt64.
  53.     S64Min
  54.                 Returns the smallest (i.e. most negative) SInt64.  Note: the negative
  55.                 (absolute value) of this number is not representable in an SInt64.
  56.                 That means that S64Negate(S64Min) is not representable (in fact,
  57.                 it returns S64Min).
  58.     S64Add
  59.                 Adds two integers, producing an integer result.  If an overflow
  60.                 occurs the result is congruent mod (2^64) as if the operands and
  61.                 result were unsigned.  No overflow is signaled.
  62.     
  63.     S64Subtract
  64.                 Subtracts two integers, producing an integer result.  If an overflow
  65.                 occurs the result is congruent mod (2^64) as if the operands and
  66.                 result were unsigned.  No overflow is signaled.
  67.  
  68.     S64Negate
  69.                 Returns the additive inverse of a signed number (i.e. it returns
  70.                 0 - the number).  S64Negate (S64Min) is not representable (in fact,
  71.                 it returns S64Min).
  72.     
  73.     S64Absolute
  74.                 Returns the absolute value of the number (i.e. the number if
  75.                 it is positive, or 0 - the number if it is negative).
  76.                 See S64Negate above.
  77.                 
  78.     S64Multiply
  79.                 Multiplies two signed numbers, producing a signed result.  Overflow
  80.                 is ignored and the low-order part of the product is returned.  The
  81.                 sign of the result is not guaranteed to be correct if the magnitude
  82.                 of the product is not representable.
  83.     S64Divide
  84.                 Divides dividend by divisor, returning the quotient.  The remainder
  85.                 is returned in *remainder if remainder (the pointer) is non-NULL.
  86.                 The sign of the remainder is the same as the sign of the dividend
  87.                 (i.e. it takes the absolute values of the operands, does the division,
  88.                 then fixes the sign of the quotient and remainder).  If the divisor
  89.                 is zero, then S64Max() will be returned (or S64Min() if the dividend
  90.                 is negative), and the remainder will be the dividend; no error is
  91.                 reported.
  92.     
  93.     S64Set
  94.                 Given an SInt32, returns an SInt64 with the same value.  Use this
  95.                 routine instead of coding 64-bit constants (at least when the
  96.                 constant will fit in an SInt32).
  97.     
  98.     S64SetU
  99.                 Given a UInt32, returns a SInt64 with the same value.
  100.     
  101.     S64Compare
  102.                 Given two signed numbers, left and right, returns an
  103.                 SInt32 that compares with zero the same way left compares with
  104.                 right.  If you wanted to perform a comparison on 64-bit integers
  105.                 of the form:
  106.                         operand_1 <operation> operand_2
  107.                 then you could use an expression of the form:
  108.                         xxxS64Compare(operand_1,operand_2) <operation> 0
  109.                 to test for the same condition.
  110.                 
  111.                 CAUTION: DO NOT depend on the exact value returned by this routine.
  112.                 Only the sign (i.e. positive, zero, or negative) of the result is
  113.                 guaranteed.
  114.  
  115.     S64And, S64Or, S64Eor and S64Not
  116.     
  117.                 Return Boolean (1 or 0) depending on the outcome of the logical
  118.                 operation.
  119.  
  120.     S64BitwiseAnd, S64BitwiseOr, S64BitwiseEor and S64BitwiseNot
  121.     
  122.                 Return the Bitwise result.
  123.                 
  124.     S64ShiftRight and S64ShiftLeft
  125.     
  126.                 The lower 7 bits of the shift argument determines the amount of 
  127.                 shifting.  S64ShiftRight is an arithmetic shift while U64ShiftRight
  128.                 is a logical shift.
  129.  
  130.     SInt64ToLongDouble
  131.                 
  132.                 Converts SInt64 to long double.  Note all SInt64s fit exactly into 
  133.                 long doubles, thus, the binary -> decimal conversion routines
  134.                 in fp.h can be used to achieve SInt64 -> long double -> decimal
  135.                 conversions.
  136.                 
  137.     LongDoubleToSInt64
  138.     
  139.                 Converts a long double to a SInt64.  Any decimal string that fits
  140.                 into a SInt64 can be converted exactly into a long double, using the
  141.                 conversion routines found in fp.h.  Then this routine can be used
  142.                 to complete the conversion to SInt64.
  143.                 
  144.                 
  145.     
  146.     The corresponding UInt64 routines are also included.
  147.     
  148. --------------------------------------------------------------------------------
  149. }
  150. {$IFC FOR_SYSTEM7_AND_SYSTEM8_PREEMPTIVE }
  151. {$IFC GENERATINGPOWERPC }
  152. FUNCTION S64Max: SInt64; C;
  153. FUNCTION S64Min: SInt64; C;
  154. FUNCTION S64Add(x: SInt64; y: SInt64): SInt64; C;
  155. FUNCTION S64Subtract(left: SInt64; right: SInt64): SInt64; C;
  156. FUNCTION S64Negate(value: SInt64): SInt64; C;
  157. FUNCTION S64Absolute(value: SInt64): SInt64; C;
  158. FUNCTION S64Multiply(xparam: SInt64; yparam: SInt64): SInt64; C;
  159. FUNCTION S64Divide(dividend: SInt64; divisor: SInt64; VAR remainder: SInt64): SInt64; C;
  160. FUNCTION S64Set(value: SInt32): SInt64; C;
  161. FUNCTION S64SetU(value: UInt32): SInt64; C;
  162. FUNCTION S32Set(value: SInt64): SInt32; C;
  163. FUNCTION S64Compare(left: SInt64; right: SInt64): LONGINT; C;
  164. FUNCTION S64And(left: SInt64; right: SInt64): BOOLEAN; C;
  165. FUNCTION S64Or(left: SInt64; right: SInt64): BOOLEAN; C;
  166. FUNCTION S64Eor(left: SInt64; right: SInt64): BOOLEAN; C;
  167. FUNCTION S64Not(value: SInt64): BOOLEAN; C;
  168. FUNCTION S64BitwiseAnd(left: SInt64; right: SInt64): SInt64; C;
  169. FUNCTION S64BitwiseOr(left: SInt64; right: SInt64): SInt64; C;
  170. FUNCTION S64BitwiseEor(left: SInt64; right: SInt64): SInt64; C;
  171. FUNCTION S64BitwiseNot(value: SInt64): SInt64; C;
  172. FUNCTION S64ShiftRight(value: SInt64; shift: UInt32): SInt64; C;
  173. FUNCTION S64ShiftLeft(value: SInt64; shift: UInt32): SInt64; C;
  174. FUNCTION SInt64ToLongDouble(value: SInt64): LongDouble; C;
  175. FUNCTION LongDoubleToSInt64(value: LongDouble): SInt64; C;
  176. FUNCTION U64Max: UInt64; C;
  177. FUNCTION U64Add(x: UInt64; y: UInt64): UInt64; C;
  178. FUNCTION U64Subtract(left: UInt64; right: UInt64): UInt64; C;
  179. FUNCTION U64Multiply(xparam: UInt64; yparam: UInt64): UInt64; C;
  180. FUNCTION U64Divide(dividend: UInt64; divisor: UInt64; VAR remainder: UInt64): UInt64; C;
  181. FUNCTION U64Set(value: SInt32): UInt64; C;
  182. FUNCTION U64SetU(value: UInt32): UInt64; C;
  183. FUNCTION U32SetU(value: UInt64): UInt32; C;
  184. FUNCTION U64Compare(left: UInt64; right: UInt64): LONGINT; C;
  185. FUNCTION U64And(left: UInt64; right: UInt64): BOOLEAN; C;
  186. FUNCTION U64Or(left: UInt64; right: UInt64): BOOLEAN; C;
  187. FUNCTION U64Eor(left: UInt64; right: UInt64): BOOLEAN; C;
  188. FUNCTION U64Not(value: UInt64): BOOLEAN; C;
  189. FUNCTION U64BitwiseAnd(left: UInt64; right: UInt64): UInt64; C;
  190. FUNCTION U64BitwiseOr(left: UInt64; right: UInt64): UInt64; C;
  191. FUNCTION U64BitwiseEor(left: UInt64; right: UInt64): UInt64; C;
  192. FUNCTION U64BitwiseNot(value: UInt64): UInt64; C;
  193. FUNCTION U64ShiftRight(value: UInt64; shift: UInt32): UInt64; C;
  194. FUNCTION U64ShiftLeft(value: UInt64; shift: UInt32): UInt64; C;
  195. FUNCTION UInt64ToLongDouble(value: UInt64): LongDouble; C;
  196. FUNCTION LongDoubleToUInt64(value: LongDouble): UInt64; C;
  197. FUNCTION UInt64ToSInt64(value: UInt64): SInt64; C;
  198. FUNCTION SInt64ToUInt64(value: SInt64): UInt64; C;
  199. {$ENDC}
  200. {$ENDC}
  201. {$ALIGN RESET}
  202. {$POP}
  203.  
  204. {$SETC UsingIncludes := Math64Includes}
  205.  
  206. {$ENDC} {__MATH64__}
  207.  
  208. {$IFC NOT UsingIncludes}
  209.  END.
  210. {$ENDC}
  211.